home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
mdboutln.000
/
about.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-08
|
979b
|
54 lines
unit About;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TfrmAboutBox = class(TForm)
pnlPanel1: TPanel;
btnbitOK: TBitBtn;
lblComments: TLabel;
imgImage: TImage;
lblLabel1: TLabel;
pnlPanel2: TPanel;
lblLabel3: TLabel;
lblLabel4: TLabel;
lblLabel6: TLabel;
lblLabel7: TLabel;
lblLabel8: TLabel;
imgImage2: TImage;
procedure btnbitOKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmAboutBox: TfrmAboutBox;
boolSecondClick: boolean;
implementation
{$R *.DFM}
procedure TfrmAboutBox.btnbitOKClick(Sender: TObject);
begin
if boolSecondClick then
begin
boolSecondClick := false;
pnlPanel2.Visible := false;
Modalresult := mrOK
end
else
begin
boolSecondClick := true;
pnlPanel2.Visible := true;
end;
end;
end.